1 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[158]"
2 PRINT"****************************************";
5 PRINT"COLORS","BORDER","SCREEN","LETTERS"
6 PRINT"****************************************";
7 PRINT"BLACK",0,0,144
8 PRINT"WHITE",1,1,5
9 PRINT"RED",2,2,28
10 PRINT"CYAN",3,3,159
11 PRINT"PURPLE",4,4,156
12 PRINT"GREEN",5,5,30
13 PRINT"BLUE",6,6,31
14 PRINT"YELLOW",7,7,158
15 PRINT"ORANGE",8,8
16 PRINT"BROWN",9,9
17 PRINT"LT RED",10,10
18 PRINT"GREY 1",11,11
19 PRINT"GREY 2",12,12
20 PRINT"LT GREEN",13,13
21 PRINT"LT BLUE",14,14
22 PRINT"GREY 3",15,15
23 PRINT"****************************************"
25 INPUT"BORDER COLOR";A
26 INPUT"SCREEN COLOR";B
27 INPUT"LETTER COLOR";C
30 PRINT"[147]":POKE53280,A:POKE53281,B:PRINTCHR$(C)
35 FORI=1TO7
40 PRINT"1234567890+-\QWERTYUIOPASDFGHJKL:;"
45 PRINT:PRINT
50 NEXTI
60 INPUTX$
70 GOTO1